home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / HELLO.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  57 lines
  1. 10  SPEED= 255: TEXT : HOME : DIM A$(100):D$ =  CHR$(4): PRINT D$;"NOMON C,I,O": HOME 
  2. 20  PRINT "------------------AF6W------------------";: CALL  -384: PRINT " UTILITY MASTER   DOS 3.3  ALEX MASSIMO ";: CALL  -380: PRINT "----------------------------------------"
  3. 30 C$ = "                  ":B$ = "                    "
  4. 40  FOR I = 100 TO 1  STEP  -1:A$(I) = B$ +C$: NEXT 
  5. 50 QQ =  PEEK(977) -185: IF QQ >0  THEN A$(0) = C$ +" "
  6. 60  IF QQ < = 0  THEN A$(0) = C$ +" "
  7. 70  FOR I = 768 TO 788: READ PP: POKE I,PP: NEXT I:I = 0
  8. 80 ZZ = 3037:I = 0:R = 0:QQ =  PEEK(977) -185: IF QQ >0  THEN ZZ = 3220
  9. 90 Q =  PEEK(977) + PEEK(978) *256 +ZZ:Z =  PEEK(107) + PEEK(108) *256 +8
  10. 100  POKE (209), PEEK(Z): POKE (210), PEEK(Z +1): POKE Q,0: POKE Q +1,3: POKE Q +2,18: POKE Q +3,3: POKE 34,3
  11. 110  VTAB 24: PRINT D$;"CATALOG": PRINT D$;"PR#0": PRINT D$;"IN#0": HOME : POKE 33,20: POKE 34,3: HOME :
  12. 120  CALL  -384: PRINT " 0 CATALOG        ": CALL  -380
  13. 130 J = 1: IF QQ < = 0  THEN A$(0) = B$ +"       "
  14. 140  IF  MID$ (A$(J),7,15) = "               "  THEN 190
  15. 150  IF J = 18  OR J = 53  THEN  GOSUB 330
  16. 160  IF J = 36  THEN  GOSUB 340: IF Z$ = "Y"  THEN 190
  17. 170 T = 1: IF J <10  THEN T = 2
  18. 180  HTAB T: PRINT J; TAB( 3); MID$ (A$(J),7,16):J = J +1: GOTO 140
  19. 190  POKE 32,0: POKE 34,22: POKE 33,40: HOME 
  20. 200  CALL  -384: PRINT "  TO RUN OR LOAD - TYPE <R> OR <L> AND    PROGRAM # FOLLOWED BY A <RETURN>.";: CALL  -380: INPUT " ";X$
  21. 210 X =  VAL( MID$ (X$,2,4)):Y$ =  MID$ (A$(X),2,2)
  22. 220  IF X >J -1  THEN 190
  23. 230  IF  LEFT$(X$,1) = "L"  THEN  GOSUB 400: GOTO 280
  24. 240  IF  LEFT$(X$,1) = "R"  THEN  GOSUB 480: GOTO 280
  25. 250  IF  LEFT$(X$,1) = "0"  THEN 270
  26. 260  GOTO 190
  27. 270  TEXT : HOME : PRINT D$;"CATALOG": END 
  28. 280  IF  MID$ (X$,2,1) = "0"  THEN 270
  29. 290  IF  VAL( MID$ (X$,2,1)) = 0  THEN 190
  30. 300  TEXT : HOME 
  31. 310  PRINT D$;F$; MID$ (A$(X),7,31);",V0"
  32. 320  END 
  33. 330  POKE 33,19: POKE 32,20: HOME : RETURN 
  34. 340  POKE 32,0: POKE 34,22: POKE 33,40: HOME 
  35. 350  CALL  -384: PRINT "   DO YOU WANT TO LOAD OR RUN ANY OF       THESE PROGRAMS? (THERE ARE MORE.)   ";: CALL  -380
  36. 360  GET Z$
  37. 370  IF Z$ = "Y"  THEN  RETURN 
  38. 380  IF Z$ < >"N"  THEN 360
  39. 390  POKE 32,0: POKE 34,3: POKE 33,19: HOME : RETURN 
  40. 400  IF  ASC(Y$) = 201  OR  ASC(Y$) = 193  THEN 440
  41. 410  IF  ASC(Y$) = 194  THEN 450
  42. 420  IF  ASC(Y$) = 212  THEN 460
  43. 430  GOTO 470
  44. 440 F$ = "LOAD": RETURN 
  45. 450 F$ = "BLOAD": RETURN 
  46. 460 F$ = "EXEC": RETURN 
  47. 470  RETURN 
  48. 480  IF  ASC(Y$) = 201  OR  ASC(Y$) = 193  THEN 520
  49. 490  IF  ASC(Y$) = 194  THEN 530
  50. 500  IF  ASC(Y$) = 212  THEN 540
  51. 510  PRINT "AT LINE 625",Y$
  52. 520 F$ = "RUN": RETURN 
  53. 530 F$ = "BRUN": RETURN 
  54. 540 F$ = "EXEC": RETURN 
  55. 550  RETURN 
  56. 560  DATA 56,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96
  57. 570  REM <CTRL-J>LINE #20 = DISK TITLE<CTRL-J>